home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QRZ! Ham Radio 8
/
QRZ Ham Radio Callsign Database - Volume 8.iso
/
pc
/
files
/
mac
/
chess_hc.hqx
/
Chess Stack1.0
/
ChessStack V1.0
/
stack.txt
< prev
Wrap
Text File
|
1988-06-28
|
4KB
|
118 lines
-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 4
-- first background id: 2581
-- card count: 15
-- first card id: 4081
-- list block id: 9162
-- print block id: 8544
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 51040 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on setBaud rate
if rate is empty then exit setBaud
if rate is 300 then resetSPort 1,380+16384+3072
else if rate is 1200 then resetSPort 1,94+16384+3072
else if rate is 2400 then resetSPort 1,46+16384+3072
else if rate is 4800 then resetSPort 1,22+16384+3072
else if rate is 9600 then resetSPort 1,10+16384+3072
else answer "Set the Baud Rate. Click the " & "'Set'" && "button."
end setBaud
on openStack
global theBuffer,cntlC3,connectStatus,cC1
global communicationsMode
go to card "Title"
openSPort 1
put bufferSPort(1,0,10240) into theBuffer
put empty into card field "inField" of card "Main"
put empty into card field "outField" of card "Main"
put empty into field "Game Info" of card "Main"
put numToChar(3) into cC1
put cC1 & cC1 & cC1 into cntlC3
put false into connectStatus
hide menubar
hide message
put card field "cm" of card "Options" into communicationsMode
if communicationsMode is "Packet" then
setBaud card field "TncBaudRate" of card "Options"
else
setBaud card field "ModemBaudRate" of card "Options"
sendSPort 1,false,"ATS0=1" & return
end if
play "fanfare"
repeat while the sound is not "done"
end repeat
end openStack
on closeStack
global theBuffer,communicationsMode
if communicationsMode is "Modem" then
sendSPort 1,false,"ATZ" & return
end if
get bufferSPort(1,theBuffer,0)
visual effect scroll down
go Last Card
play "blackout"
repeat while the sound is not "done"
end repeat
domenu "compact stack"
end closeStack